Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / apcp.arc / A213A.CMD < prev next >

Wrap

Text File | 1987-01-09 | 10.3 KB | 404 lines

goto menu dial: isfile s8 if success return else endif clear message "│ 213 │" locate 0,8 message s8 locate 0,17 message "│ Los Angles, CA │" locate 0,49 message s6 locate 0,77 message "│" locate 2,0 transmit "I!" pause 1 transmit "ATZ!" waitfor "OK" transmit "^E!" waitfor "READY" transmit "D" transmit S8 transmit "!" rget s9 rget s9 80 40 rget s9 40 40 rget s9 40 40 mess: find s9 "BUSY" if found assign s7 "M" return else endif find s9 "ANSWER TONE" if found set parity none set databits 8 clear log open s8 alarm 2 exit else endif find s9 "RINGING" if found rget s9 find s9 "RINGING" if not found goto mess else log open s8 message "NO ANSWER - STILL RINGING" log close transmit "^C^D^C" endif else endif return menu: assign s7 " " log close clear message "╔════════════════════════════════════════════════════════════════════════════╗" message "║ A- Rainbow ................ 376-9567 V- Computer Connection .... 657-1799 ║" message "║ B- Rainbow Fido ........... 644-1963 W- The Motherboard .... ... 659-5334 ║" message "║ C- Crest BBS .............. 471-2518 X- Santa Monica IBM 4331 .. 828-1331 ║" message "║ D- Sci Fi ................. 379-8817 Y- Santa Monica IBM PC .... 829-1487 ║" message "║ E- RBBS of Pacific Palis .. 459-6480 Z- Net Works Computer Wrl . 859-0894 ║" message "║ F- DOS .................... 660-1306 0- FBI ?? ................. 925-9255 ║" message "║ G- AT ..................... 874-9484 1- Observatory ............ 947-7095 ║" message "║ H- Manna Tech (Pursuit) ... 633-6343 2- Picture? BBS ........... 739-5056 ║" message "║ I- RLW Downloading ........ 257-7327 3- Digital Vision ......... 732-6935 ║" message "║ J- LMI Forth Board ........ 306-3530 4- LA Public Domain LABBS . 456-1121 ║" message "║ K- Compucenter ............ 320-0222 5- ........................ ...-.... ║" message "║ L- Valley Computer Club ... 367-0013 6- ........................ ...-.... ║" message "║ M- Epson (PC=World) ....... 375-1391 7- ........................ ...-.... ║" message "║ N- South Bay PC BBS ....... 376-7089 8- ........................ ...-.... ║" message "║ O- Micro Source ........... 391-1351 9- ........................ ...-.... ║" message "║ P- Wargames RBBS .......... 393-7227 @- ........................ ...-.... ║" message "║ Q- Sysop's BBS ............ 479-0964 #- ........................ ...-.... ║" message "║ R- GFRN Data Exchange .. .. 541-2503 $- ........................ ...-.... ║" message "║ S- City of Los Angeles .... 617-3599 %- ........................ ...-.... ║" message "║ T- IBM_PC ................. 637-9229 &- ........................ ...-.... ║" message "║ U- RBBS PC ................ 649-1489 *- ........................ ...-.... ║" message "╚════════════════════════════════════════════════════════════════════════════╝" locate 23,2 get s0 top: find s0 "A" if found assign s8 "376-9567" assign s6 "Rainbow " gosub dial else endif find s0 "B" if found assign s8 "644-1963" assign s6 "Rainbow FIDO " gosub dial else endif find s0 "C" if found assign s8 "471-2518" assign s6 "Crest BBS " gosub dial else endif find s0 "D" if found assign s8 "379-8817" assign s6 "Science Fiction BBS " gosub dial else endif find s0 "E" if found assign s8 "459-6480" assign s6 "RBBS of Pacific Palisades " gosub dial else endif find s0 "F" if found assign s8 "660-1306" assign s6 "DOS " gosub dial else endif find s0 "G" if found assign s8 "874-9484" assign s6 "AT " gosub dial else endif find s0 "H" if found assign s8 "633-6343" assign s6 "Manna Tech (Pursuit) " gosub dial else endif find s0 "I" if found assign s8 "257-7327" assign s6 "RLW Downloading " gosub dial else endif find s0 "J" if found assign s8 "306-3530" assign s6 "LMI Forth Board " gosub dial else endif find s0 "K" if found assign s8 "320-0222" assign s6 "Compucenter " gosub dial else endif find s0 "L" if found assign s8 "367-0013" assign s6 "Valley Computer Club " gosub dial else endif find s0 "M" if found assign s8 "375-1391" assign s6 "Epson (PC World) " gosub dial else endif find s0 "N" if found assign s8 "376-7089" assign s6 "South Bay PC BBS " gosub dial else endif find s0 "O" if found assign s8 "391-1351" assign s6 "Micro Source " gosub dial else endif find s0 "P" if found assign s8 "393-7227" assign s6 "Wargames RBBS " gosub dial else endif find s0 "Q" if found assign s8 "479-0964" assign s6 "Sysop's BBS " gosub dial else endif find s0 "R" if found assign s8 "541-2503" assign s6 "GFRN Data Exchange " gosub dial else endif find s0 "S" if found assign s8 "617-3599" assign s6 "City of Los Angeles " gosub dial else endif find s0 "T" if found assign s8 "637-9229" assign s6 "IBM_PC " gosub dial else endif find s0 "U" if found assign s8 "649-1489" assign s6 "RBBS PC " gosub dial else endif find s0 "V" if found assign s8 "657-1799" assign s6 "Computer Connection " gosub dial else endif find s0 "W" if found assign s8 "659-5334" assign s6 "The Motherboard " gosub dial else endif find s0 "X" if found assign s8 "828-1331" assign s6 "Santa Monica IBM 4331 " gosub dial else endif find s0 "Y" if found assign s8 "829-1487" assign s6 "Santa Monica IBM PC " gosub dial else endif find s0 "Z" if found assign s8 "859-0894" assign s6 "Net Works Computer World " gosub dial else endif find s0 "0" if found assign s8 "925-9255" assign s6 "FBI ?? " gosub dial else endif find s0 "1" if found assign s8 "947-7095" assign s6 "Observatory " gosub dial else endif find s0 "2" if found assign s8 "739-5056" assign s6 "Picture?? BBS " gosub dial else endif find s0 "3" if found assign s8 "732-6935" assign s6 "Digital Vision " gosub dial else endif find s0 "4" if found assign s8 "456-1121" assign s6 "LA Public Domain LABBS " gosub dial else endif goto speedup ; Skip Empty Elements find s0 "5" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "6" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "7" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "8" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "9" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "@" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "#" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "$" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "%" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "&" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "*" if found assign s8 " - " assign s6 " " gosub dial else endif speedup: find s7 "M" if found assign s7 " " goto top else endif message "All Numbers Connected - Or Did Not Answer" alarm 2 exit